home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbboid / boid.cls < prev    next >
Text File  |  1999-09-13  |  9KB  |  344 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "BoidClass"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  12. Private mvardirection As Single 'local copy
  13. Private mvarspeed As Single 'local copy
  14. Private mvarid As Integer 'local copy
  15. Private mvarX As Integer 'local copy
  16. Private mvarY As Integer 'local copy
  17. Private mvarNewX As Integer 'local copy
  18. Private mvarNewY As Integer 'local copy
  19. Private mvarColour As Long 'local copy
  20.  
  21. Private mvarAveX As Integer 'local copy
  22. Private mvarAveY As Integer 'local copy
  23. Private mvarAveDir As Single 'local copy
  24. Private mvarAveSpeed As Single 'local copy
  25. Private mvarCentreDist As Single 'local copy
  26.  
  27. Private mvarClosestX As Integer 'local copy
  28. Private mvarClosestY As Integer 'local copy
  29. Private mvarClosestDist As Single 'local copy
  30.  
  31. Private mvarDesireCentreTurn As Single 'local copy
  32. Private mvarDesireCentreWeight As Double 'local copy
  33. Private mvarDesireCentreX As Integer 'local copy
  34. Private mvarDesireCentreY As Integer 'local copy
  35.  
  36. Private mvarDesireAlignTurn As Single 'local copy
  37. Private mvarDesireAlignWeight As Double 'local copy
  38. Private mvarDesireAlignX As Integer 'local copy
  39. Private mvarDesireAlignY As Integer 'local copy
  40.  
  41. Private mvarDesireSeparateTurn As Single 'local copy
  42. Private mvarDesireSeparateWeight As Double 'local copy
  43. Private mvarDesireSeparateX As Integer 'local copy
  44. Private mvarDesireSeparateY As Integer 'local copy
  45.  
  46. Private mvarDesireAvoidTurn As Single 'local copy
  47. Private mvarDesireAvoidWeight As Double 'local copy
  48. Private mvarDesireAvoidX As Integer 'local copy
  49. Private mvarDesireAvoidY As Integer 'local copy
  50.  
  51. Private mvarDesireAvoidLeft As Boolean 'local copy
  52. Private mvarDesireAvoidRight As Boolean 'local copy
  53.  
  54.  
  55. Public Property Let id(ByVal vData As Integer)
  56.     mvarid = vData
  57. End Property
  58.  
  59. Public Property Get id() As Integer
  60.     id = mvarid
  61. End Property
  62.  
  63. Public Property Let Colour(ByVal vData As Long)
  64.     mvarColour = vData
  65. End Property
  66.  
  67. Public Property Get Colour() As Long
  68.     Colour = mvarColour
  69. End Property
  70.  
  71. Public Property Let Y(ByVal vData As Integer)
  72.     mvarY = vData
  73. End Property
  74.  
  75. Public Property Get Y() As Integer
  76.     Y = mvarY
  77. End Property
  78.  
  79. Public Property Let X(ByVal vData As Integer)
  80.     mvarX = vData
  81. End Property
  82.  
  83. Public Property Get X() As Integer
  84.     X = mvarX
  85. End Property
  86.  
  87.  
  88. Public Property Let NewY(ByVal vData As Integer)
  89.     mvarNewY = vData
  90. End Property
  91.  
  92. Public Property Get NewY() As Integer
  93.     NewY = mvarNewY
  94. End Property
  95.  
  96. Public Property Let NewX(ByVal vData As Integer)
  97.     mvarNewX = vData
  98. End Property
  99.  
  100. Public Property Get NewX() As Integer
  101.     NewX = mvarNewX
  102. End Property
  103.  
  104.  
  105. Public Property Let AveX(ByVal vData As Integer)
  106.     mvarAveX = vData
  107. End Property
  108.  
  109. Public Property Get AveX() As Integer
  110.     AveX = mvarAveX
  111. End Property
  112.  
  113. Public Property Let AveY(ByVal vData As Integer)
  114.     mvarAveY = vData
  115. End Property
  116.  
  117. Public Property Get AveY() As Integer
  118.     AveY = mvarAveY
  119. End Property
  120.  
  121. Public Property Let CentreDist(ByVal vData As Integer)
  122.     mvarCentreDist = vData
  123. End Property
  124.  
  125. Public Property Get CentreDist() As Integer
  126.     CentreDist = mvarCentreDist
  127. End Property
  128.  
  129. Public Property Let direction(ByVal vData As Single)
  130.     mvardirection = vData
  131. End Property
  132.  
  133. Public Property Get direction() As Single
  134.     direction = mvardirection
  135. End Property
  136.  
  137. Public Property Let speed(ByVal vData As Single)
  138.     mvarspeed = vData
  139. End Property
  140.  
  141. Public Property Get speed() As Single
  142.     speed = mvarspeed
  143. End Property
  144.  
  145. Public Property Let AveDir(ByVal vData As Single)
  146.     mvarAveDir = vData
  147. End Property
  148.  
  149. Public Property Get AveDir() As Single
  150.     AveDir = mvarAveDir
  151. End Property
  152.  
  153. Public Property Let AveSpeed(ByVal vData As Single)
  154.     mvarAveSpeed = vData
  155. End Property
  156.  
  157. Public Property Get AveSpeed() As Single
  158.     AveSpeed = mvarAveSpeed
  159. End Property
  160.  
  161. Public Property Let ClosestX(ByVal vData As Integer)
  162.     mvarClosestX = vData
  163. End Property
  164.  
  165. Public Property Get ClosestX() As Integer
  166.     ClosestX = mvarClosestX
  167. End Property
  168.  
  169. Public Property Let ClosestY(ByVal vData As Integer)
  170.     mvarClosestY = vData
  171. End Property
  172.  
  173. Public Property Get ClosestY() As Integer
  174.     ClosestY = mvarClosestY
  175. End Property
  176.  
  177. Public Property Let ClosestDist(ByVal vData As Integer)
  178.     mvarClosestDist = vData
  179. End Property
  180.  
  181. Public Property Get ClosestDist() As Integer
  182.     ClosestDist = mvarClosestDist
  183. End Property
  184.  
  185.  
  186.  
  187. Public Property Let DesireCentreTurn(ByVal vData As Single)
  188.     mvarDesireCentreTurn = vData
  189. End Property
  190.  
  191. Public Property Get DesireCentreTurn() As Single
  192.     DesireCentreTurn = mvarDesireCentreTurn
  193. End Property
  194.  
  195. Public Property Let DesireCentreWeight(ByVal vData As Single)
  196.     mvarDesireCentreWeight = vData
  197. End Property
  198.  
  199. Public Property Get DesireCentreWeight() As Single
  200.     DesireCentreWeight = mvarDesireCentreWeight
  201. End Property
  202.  
  203. Public Property Let DesireCentreX(ByVal vData As Integer)
  204.     mvarDesireCentreX = vData
  205. End Property
  206.  
  207. Public Property Get DesireCentreX() As Integer
  208.     DesireCentreX = mvarDesireCentreX
  209. End Property
  210.  
  211. Public Property Let DesireCentreY(ByVal vData As Integer)
  212.     mvarDesireCentreY = vData
  213. End Property
  214.  
  215. Public Property Get DesireCentreY() As Integer
  216.     DesireCentreY = mvarDesireCentreY
  217. End Property
  218.  
  219.  
  220.  
  221. Public Property Let DesireAlignTurn(ByVal vData As Single)
  222.     mvarDesireAlignTurn = vData
  223. End Property
  224.  
  225. Public Property Get DesireAlignTurn() As Single
  226.     DesireAlignTurn = mvarDesireAlignTurn
  227. End Property
  228.  
  229. Public Property Let DesireAlignWeight(ByVal vData As Single)
  230.     mvarDesireAlignWeight = vData
  231. End Property
  232.  
  233. Public Property Get DesireAlignWeight() As Single
  234.     DesireAlignWeight = mvarDesireAlignWeight
  235. End Property
  236.  
  237. Public Property Let DesireAlignX(ByVal vData As Integer)
  238.     mvarDesireAlignX = vData
  239. End Property
  240.  
  241. Public Property Get DesireAlignX() As Integer
  242.     DesireAlignX = mvarDesireAlignX
  243. End Property
  244.  
  245. Public Property Let DesireAlignY(ByVal vData As Integer)
  246.     mvarDesireAlignY = vData
  247. End Property
  248.  
  249. Public Property Get DesireAlignY() As Integer
  250.     DesireAlignY = mvarDesireAlignY
  251. End Property
  252.  
  253.  
  254.  
  255.  
  256. Public Property Let DesireSeparateTurn(ByVal vData As Single)
  257.     mvarDesireSeparateTurn = vData
  258. End Property
  259.  
  260. Public Property Get DesireSeparateTurn() As Single
  261.     DesireSeparateTurn = mvarDesireSeparateTurn
  262. End Property
  263.  
  264. Public Property Let DesireSeparateWeight(ByVal vData As Single)
  265.     mvarDesireSeparateWeight = vData
  266. End Property
  267.  
  268. Public Property Get DesireSeparateWeight() As Single
  269.     DesireSeparateWeight = mvarDesireSeparateWeight
  270. End Property
  271.  
  272. Public Property Let DesireSeparateX(ByVal vData As Integer)
  273.     mvarDesireSeparateX = vData
  274. End Property
  275.  
  276. Public Property Get DesireSeparateX() As Integer
  277.     DesireSeparateX = mvarDesireSeparateX
  278. End Property
  279.  
  280. Public Property Let DesireSeparateY(ByVal vData As Integer)
  281.     mvarDesireSeparateY = vData
  282. End Property
  283.  
  284. Public Property Get DesireSeparateY() As Integer
  285.     DesireSeparateY = mvarDesireSeparateY
  286. End Property
  287.  
  288.  
  289.  
  290.  
  291.  
  292. Public Property Let DesireAvoidTurn(ByVal vData As Single)
  293.     mvarDesireAvoidTurn = vData
  294. End Property
  295.  
  296. Public Property Get DesireAvoidTurn() As Single
  297.     DesireAvoidTurn = mvarDesireAvoidTurn
  298. End Property
  299.  
  300. Public Property Let DesireAvoidWeight(ByVal vData As Single)
  301.     mvarDesireAvoidWeight = vData
  302. End Property
  303.  
  304. Public Property Get DesireAvoidWeight() As Single
  305.     DesireAvoidWeight = mvarDesireAvoidWeight
  306. End Property
  307.  
  308. Public Property Let DesireAvoidX(ByVal vData As Integer)
  309.     mvarDesireAvoidX = vData
  310. End Property
  311.  
  312. Public Property Get DesireAvoidX() As Integer
  313.     DesireAvoidX = mvarDesireAvoidX
  314. End Property
  315.  
  316. Public Property Let DesireAvoidY(ByVal vData As Integer)
  317.     mvarDesireAvoidY = vData
  318. End Property
  319.  
  320. Public Property Get DesireAvoidY() As Integer
  321.     DesireAvoidY = mvarDesireAvoidY
  322. End Pro